home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / minix / up1510b.tgz / up1510b / src / kernel / stmpx.s.D < prev    next >
Text File  |  1990-07-25  |  6KB  |  277 lines
  1. *** /tmp/,RCSt1022335    Wed Jul 25 13:56:07 1990
  2. --- stmpx.s    Sun Jul 15 08:29:11 1990
  3. ***************
  4. *** 1,2 ****
  5. ! #ifdef ATARI_ST
  6.   
  7. --- 1,4 ----
  8. ! #include <minix/config.h>
  9. ! #include "const.h"
  10. ! #if (CHIP == M68000)
  11.   
  12. ***************
  13. *** 26,27 ****
  14. --- 28,30 ----
  15.       .define    _lock
  16. +     .define    _unlock
  17.       .define    _restore
  18. ***************
  19. *** 37,43 ****
  20.   !
  21.       .extern    _proc_ptr
  22. -     .extern    _cur_proc
  23.       .extern    _rdy_head
  24. !     .extern    _pick_proc
  25. !     .extern    _t_stack
  26.       .extern    _main
  27. --- 40,47 ----
  28.   !
  29. +     .extern    _clock_handler
  30. +     .extern    _held_head
  31. +     .extern _k_reenter
  32.       .extern    _proc_ptr
  33.       .extern    _rdy_head
  34. !     .extern    _lock_pick_proc
  35.       .extern    _main
  36. ***************
  37. *** 47,49 ****
  38.       .extern    _timint
  39. -     .extern    _clockint
  40.       .extern    _dmaint
  41. --- 51,52 ----
  42. ***************
  43. *** 58,66 ****
  44.   !
  45. - ! manifest constants to be included from kernel/const.h
  46. - !
  47. - TASK_STACK_BYTES= 1024
  48. - IDLE        = -999
  49. - TASK_Q        = 0
  50. - 
  51. - !
  52.   ! offsets into a proc table entry
  53. --- 61,62 ----
  54. ***************
  55. *** 69,73 ****
  56.   savsp    = 60
  57. ! savsr    = 64
  58. ! savpc    = 66
  59. ! savtt    = 75
  60.   
  61. --- 65,69 ----
  62.   savsp    = 60
  63. ! savpc    = 64
  64. ! savsr    = 68
  65. ! savtt    = 77
  66.   
  67. ***************
  68. *** 79,81 ****
  69.   .data2    0x0400,    trp,    0x0500,    trp,    0x0600,    trp,    0x0700,    trp
  70. ! .data2    0x0800,    trp,    0x0900,    trp,    0x0A00,    trp,    0x0B00,    trp
  71.   .data2    0x0C00,    trp,    0x0D00,    trp,    0x0E00,    trp,    0x0F00,    trp
  72. --- 75,77 ----
  73.   .data2    0x0400,    trp,    0x0500,    trp,    0x0600,    trp,    0x0700,    trp
  74. ! .data2    0x0800,    trp,    0x0900,    trc,    0x0A00,    trp,    0x0B00,    trp
  75.   .data2    0x0C00,    trp,    0x0D00,    trp,    0x0E00,    trp,    0x0F00,    trp
  76. ***************
  77. *** 153,155 ****
  78.       move.w    #0x2700,sr
  79. !     move.l    #_t_stack+TASK_STACK_BYTES,sp
  80.   !    move.l    #_end,d0
  81. --- 149,151 ----
  82.       move.w    #0x2700,sr
  83. !     move.l  #k_stktop,sp    
  84.   !    move.l    #_end,d0
  85. ***************
  86. *** 171,173 ****
  87.   trp:
  88. !     jsr    save
  89.       jsr    _trap
  90. --- 167,169 ----
  91.   trp:
  92. !     bsr    save
  93.       jsr    _trap
  94. ***************
  95. *** 174,177 ****
  96.       bra    restart
  97.   int:
  98. !     jsr    save
  99.       jsr    _rupt
  100. --- 170,177 ----
  101.       bra    restart
  102. + trc:
  103. +     btst    #5,(sp)        ! tracing through trap?
  104. +     beq    trp        ! No, do normal trace processing
  105. +     rte            ! don't trace; execute system call
  106.   int:
  107. !     bsr    save
  108.       jsr    _rupt
  109. ***************
  110. *** 179,181 ****
  111.   non:
  112. !     jsr    save
  113.       jsr    _none
  114. --- 179,181 ----
  115.   non:
  116. !     bsr    save
  117.       jsr    _none
  118. ***************
  119. *** 183,185 ****
  120.   sys:
  121. !     jsr    save            ! d0, d1 and a0 not modified
  122.       move.l    a0,-(sp)        ! m_ptr
  123. --- 183,185 ----
  124.   sys:
  125. !     bsr    save            ! d0, d1 and a0 not modified
  126.       move.l    a0,-(sp)        ! m_ptr
  127. ***************
  128. *** 186,191 ****
  129.       move.w    d1,-(sp)        ! src_dest
  130. -     move.w    _cur_proc,-(sp)        ! caller
  131.       move.w    d0,-(sp)        ! SEND/RECEIVE/BOTH
  132. !     jsr    _sys_call        ! sys_call(func,caller,src_dest,m_ptr)
  133. !     add.l    #10,sp
  134.       bra    restart
  135. --- 186,193 ----
  136.       move.w    d1,-(sp)        ! src_dest
  137.       move.w    d0,-(sp)        ! SEND/RECEIVE/BOTH
  138. !     move.l    _proc_ptr,a6        ! needed to store return value
  139. !                 ! warning: _sys_call may change _proc_ptr
  140. !     jsr    _sys_call        ! sys_call(func,src_dest,m_ptr)
  141. !     move.l  d0,(a6)
  142. !     add.l    #8,sp
  143.       bra    restart
  144. ***************
  145. *** 203,206 ****
  146.   clk:
  147.       movem.l    FREEREGS,-(sp)
  148. !     move.l    #_clockint,a0
  149.       bsr    async
  150. --- 205,213 ----
  151.   clk:
  152. +     sub.w    #1,clkcnt
  153. +     beq    cont
  154. +     rte
  155. + cont:
  156. +     move.w    #4,clkcnt
  157.       movem.l    FREEREGS,-(sp)
  158. !     move.l    #_clock_handler,a0
  159.       bsr    async
  160. ***************
  161. *** 244,245 ****
  162. --- 251,253 ----
  163.       move.w    d0,(sp)            ! push traptype as argument
  164. +     add.b    #1,_k_reenter        ! from -1 if not reentering
  165.       jsr    (a0)            ! call service routine
  166. ***************
  167. *** 247,259 ****
  168.       move.w    #0x2700,sr
  169.       movem.l    (sp)+,FREEREGS
  170. -     cmp.l    #0,_rdy_head+TASK_Q    ! any task just readied?
  171. -     beq    L3            ! no: branch and return from interrupt
  172.       btst    #5,(sp)            ! previously in kernel mode?
  173. !     beq    L4            ! no: branch and do task switch
  174. ! ! the next test is rather machine dependent
  175. ! ! for the Atari ST test for previous processor priority >= 4
  176. !     btst    #2,(sp)            ! interrupting interrupt?
  177.       bne    L3            ! yes: branch and return from interrupt
  178. !     cmp.w    #IDLE,_cur_proc        ! kernel mode but IDLE?
  179. !     beq    L4            ! yes: branch and do task switch
  180.   L3:
  181. --- 255,263 ----
  182.       move.w    #0x2700,sr
  183. +     sub.b    #1,_k_reenter
  184.       movem.l    (sp)+,FREEREGS
  185.       btst    #5,(sp)            ! previously in kernel mode?
  186. !                 ! (interrupted a task or another interrupt)
  187.       bne    L3            ! yes: branch and return from interrupt
  188. !     cmp.l    #0,_rdy_head+TASK_Q    ! any task just readied?
  189. !     bne    L4            ! yes: branch and do task switch
  190.   L3:
  191. ***************
  192. *** 261,264 ****
  193.   L4:
  194. !     jsr    save
  195. !     jsr    _pick_proc
  196.       bra    restart
  197. --- 265,268 ----
  198.   L4:
  199. !     bsr    save
  200. !     jsr    _lock_pick_proc
  201.       bra    restart
  202. ***************
  203. *** 283,285 ****
  204.       move.l    (sp)+,savpc(a6)        ! pc
  205. !     move.l    #_t_stack+TASK_STACK_BYTES,sp
  206.       jmp    (a1)
  207. --- 287,289 ----
  208.       move.l    (sp)+,savpc(a6)        ! pc
  209. !     add.b    #1,_k_reenter        ! from -1 if not reentering
  210.       jmp    (a1)
  211. ***************
  212. *** 287,292 ****
  213.   restart:
  214.       jsr    _checksp
  215. -     move.w    #0x2700,sr                    ! ?
  216. -     cmp.w    #IDLE,_cur_proc
  217. -     beq    idle
  218.       move.l    _proc_ptr,a6
  219. --- 291,306 ----
  220.   restart:
  221. + ! Flush any held-up interrupts.
  222. + ! This reenables interrupts, so the current interrupt handler may reenter.
  223. + ! This doesn't matter, because the current handler is about to exit and no
  224. + ! other handlers can reenter since flushing is only done when k_reenter == 0.
  225. + 
  226. +     move.w    #0x2700,sr
  227. +     tst.b    _k_reenter
  228. +     bne    over_call_unhold
  229. +     cmp.l    #0,_held_head
  230. +     beq    over_call_unhold
  231. +     jsr    _unhold
  232. + over_call_unhold:
  233. +     sub.b    #1,_k_reenter
  234.       jsr    _checksp
  235.       move.l    _proc_ptr,a6
  236. ***************
  237. *** 303,310 ****
  238.   
  239. - idle:
  240. -     .extern    _idle
  241. -     jsr    _idle
  242. - L8:    stop    #0x2200            ! wait enabled.
  243. -     bra    L8
  244. - 
  245.   _lock:
  246. --- 317,318 ----
  247. ***************
  248. *** 316,319 ****
  249.       rts
  250. - #ifdef NEEDED
  251. -     .define    _unlock
  252.   _unlock:
  253. --- 324,325 ----
  254. ***************
  255. *** 321,323 ****
  256.       rts
  257. - #endif
  258.   _reboot:
  259. --- 327,328 ----
  260. ***************
  261. *** 345,346 ****
  262. --- 350,356 ----
  263.   
  264. + clkcnt: .data2  4
  265. + 
  266. +     .space K_STACK_BYTES
  267. + k_stktop:
  268. + 
  269.   #ifdef ACK
  270. ***************
  271. *** 358,359 ****
  272.   
  273. ! #endif ATARI_ST
  274. --- 368,369 ----
  275.   
  276. ! #endif
  277.